home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
n_b_v203.zip
/
FSCREEN.DMO
< prev
next >
Wrap
Text File
|
1996-07-04
|
4KB
|
62 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME FSCREEN .DMO ║ by ╘════════════════─ ║ ║
│ │ ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
$INCLUDE "DAS-NB02.INC" ' the mouse routines are here
$INCLUDE "DAS-NBT0.INC" ' mouse aware text routines
$INCLUDE "DAS-NBT1.INC" ' the other text routines
COLOR 7,0
CLS
? "┌───────────────────────────────────────────────────────────────────────
? "│ fSCREEN? ( Row?, Col?, Which? )
? "├───────────────────────────────────────────────────────────────────────
? "│ PURPOSE: read screen data for one character space
? "│ PARAMS: Row? row
? "│ Col? column
? "│ Which? = 0 RETURNS ASCii for the character
? "│ = 1 RETURNS color attribute ( 0 -> 255 )
? "│ = 2 RETURNS foreground color ( 0 -> 15 )
? "│ = 3 RETURNS background color ( 0 -> 15 )
? "│ NOTE: the function returns 255 if there was an error which is
? "│ much less common than ZERO and is an illegal value for
? "│ the 2 parameters that are unique to this function.
? "└───────────────────────────────────────────────────────────────────────
?
?
? '┌──────────────────
fMouseSetup 0 '│ using the mouse
MouseON '│ so turn it on
'│
Row? = 16 '│ testing row
Col? = 1 '│ change this
MouseLOCATE Row?, Col? '│ locate mouse over
'│ the test area
'│
Tprint Row?, 1, "H ELLO WORLD", 31 '│ print test string
PRINT USING "READING: Row ## Col ##"; Row?, Col? '│ display test addr
PRINT '│
PRINT USING " CHARACTER: ##"; fSCREEN?( Row?, Col?, 0 ) '│ character value
PRINT USING " ATTRIBUE: ##"; fSCREEN?( Row?, Col?, 1 ) '│ attribute
PRINT USING "FOREGROUND: ##"; fSCREEN?( Row?, Col?, 2 ) '│ foreground
PRINT USING "BACKGROUND: ##"; fSCREEN?( Row?, Col?, 3 ) '│ background
DELAY 2 : MouseOFF '│ turn mouse off
PRINT '│
PRINT "THE MOUSE IS NOW OFF"; '│ so tell the world
'└──────────────────